home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Complete Applications / Earthplot C / Earthplot.c.xws < prev    next >
Encoding:
Text File  |  1987-04-11  |  16.4 KB  |  797 lines  |  [TEXT/ttxt]
  1. /**
  2.  ** EarthPlot -- a program to draw the earth as viewed from space.
  3.  **
  4.  ** Written by:    Michael Peirce
  5.  **        1258 Manet Drive
  6.  **        Sunnyvale, CA 94087
  7.  **
  8.  ** Significant performance improvements by:
  9.  **         Marsh Gosnell
  10.  **         35 Godfrey Road
  11.  **         Montclair, NJ  07043
  12.  **
  13.  **    ...in Megamax C (version 2.1)   w/ the SimpleTools package
  14.  **
  15.  ** Based on Microplot program written in Fortran by Richard Heurtley
  16.  ** (This can be found in file B900:MICROPLOT.FTN on the MTS system 
  17.  **  at Rensselear Polytechnic Institute in Troy, New York)
  18.  **
  19.  ** Who    When            What
  20.  ** ===    ===========        ====================================
  21.  ** mrp    01-dec-1985        Final work done for version 1.0
  22.  ** mkg 20-dec-1985        Performance improvements
  23.  **/
  24.  
  25. /**
  26.  ** The performance improvments are:
  27.  **
  28.  ** - use of integer arithmetic where possible.  All values are small
  29.  **   enough so that using integer arithmetic with 4 implied decimal
  30.  **   places (e.g., multiplying by 10000) yields sufficient accuracy.
  31.  **   (Out of 7000 displayed points, 400 are off by 1 pixel).
  32.  **
  33.  ** - data is kept in a separate code segment.  avoids disk i/o
  34.  **
  35.  ** - new lmul routine.  The Megamax lmul routine always does things the
  36.  **   hard way even if the two long values are shorts.  The new lmul will
  37.  **   lmul will run really fast if the two values are shorts (which they
  38.  **   usually are in this case).
  39.  **/
  40.  
  41. /**        
  42.  ** Because Earthplot is in such a state (and because I did it 
  43.  ** primarily as a learning experience) both source and executable
  44.  ** are being placed into the public domain.  I encourage anyone to
  45.  ** pick up on this start and expand on it’s theme.  All I ask is
  46.  ** that if anyone does improve on this program them send the
  47.  ** results back to me (either via the net or other means).
  48.  **
  49.  ** The following is a list of possible extensions:
  50.  **
  51.  ** - support cut & paste to the clipboard
  52.  **
  53.  ** - support resizing the drawing window to allow various sizes
  54.  **   of earth plots
  55.  **
  56.  ** - save plots directly into a file (a save option)
  57.  **
  58.  ** - either a scripting facility or a batch runable version so
  59.  **   that a large number of plots can be generated without human
  60.  **   interaction.  This would allow one to either feed these plots
  61.  **   into something like Videoworks to create a “real-time” rotation
  62.  **   of the earth or a special “player” program that would do this.
  63.  **   (Note: this has already been done for my roommate’s IBM-PC clone.
  64.  **   Come on MacFolks, we can do it better than THEM).
  65.  **
  66.  ** - compress the data (from ASCII into binary data)
  67.  **
  68.  ** - put the data into (a) the data fork of the executable or (b) a
  69.  **   a resource (chunked to work on 128k machines?)
  70.  **
  71.  ** - improve on hidden line and/or ploting algorithm...
  72.  **
  73.  ** - add a floating point chip to the Mac!!!!!
  74.  **/
  75.  
  76. #include <qd.h>
  77. #include <font.h>
  78. #include <qdvars.h>
  79. #include <misc.h>
  80. #include <win.h>
  81. #include <string.h>
  82. #include <stdio.h>
  83. #include <fmath.h>
  84. #include <control.h>
  85. #include <event.h>
  86. #include <res.h>
  87.  
  88. /*
  89.  *    Defines for simpletools    
  90.  */
  91.  
  92. #define itemdisable 0L
  93. #define itemenable  1L
  94. #define itemcheck   2L
  95. #define itemuncheck 3L
  96.  
  97. #define watchcursor 4
  98. #define inbutton 10
  99. #define inupbutton 20
  100. #define indownbutton 21
  101. #define inpageup 22
  102. #define inpagedown 23
  103. #define inthumb 129
  104.  
  105. /*
  106.  *    Define the coords for all my rectangles here
  107.  */
  108.  
  109. #define info_1 12
  110. #define info_2 25
  111. #define info_3 175
  112. #define info_4 329
  113.  
  114. #define icon_1 10
  115. #define icon_2 15
  116. #define icon_3 42
  117. #define icon_4 47
  118.  
  119. #define north_1 5
  120. #define north_2 104
  121. #define north_3 74
  122. #define north_4 124
  123.  
  124. #define south_1 75
  125. #define south_2 104
  126. #define south_3 145
  127. #define south_4 124
  128.  
  129. #define east_1 5
  130. #define east_2 184
  131. #define east_3 74
  132. #define east_4 204
  133.  
  134. #define west_1 75
  135. #define west_2 184
  136. #define west_3 145
  137. #define west_4 204
  138.  
  139. #define mi_1 5
  140. #define mi_2 264
  141. #define mi_3 65
  142. #define mi_4 284
  143.  
  144. #define km_1 66
  145. #define km_2 264
  146. #define km_3 175
  147. #define km_4 284
  148.  
  149. #define lat_sb_1 -1
  150. #define lat_sb_2 128
  151. #define lat_sb_3 164
  152. #define lat_sb_4 144
  153.  
  154. #define lon_sb_1 -1
  155. #define lon_sb_2 208
  156. #define lon_sb_3 164
  157. #define lon_sb_4 224
  158.  
  159. #define alt_sb_1 -1
  160. #define alt_sb_2 289
  161. #define alt_sb_3 164
  162. #define alt_sb_4 305
  163.  
  164. #define earth_1 195
  165. #define earth_2 25
  166. #define earth_3 499
  167. #define earth_4 329
  168.  
  169. #define alt_scale 1000
  170.  
  171. /*
  172.  *    The resources I use
  173.  */
  174.  
  175. #define icon_id 512
  176.  
  177. /*
  178.  *    Some usefull constants
  179.  */
  180.  
  181. #define diam  7926.0
  182. #define pi    3.141592654
  183. #define pi100 0.03141592654    /* pi / 100 */
  184. #define conv  0.017453293    /* pi / 180 */
  185.  
  186. #define xsize 300    /* size of window */
  187. #define ysize 300
  188. #define half_xsize 150
  189. #define half_ysize 150
  190. #define fudge 10000
  191. /* real fudge so we can shift to divide rather than use expensive ldiv */
  192. #define fudge2 20078
  193.  
  194. #define bitmap_size xsize * ysize / 8
  195.  
  196. extern char    applestring[]; /* defined in simpletools */
  197. extern int    wprocid;
  198. extern windowptr windowpointer();
  199.  
  200. double    alatd, alond, height;
  201.  
  202. double    cos1, cos2, sin1, sin2, xpos, xmax, scaler;
  203. long    icos1, icos2, isin1, isin2, ixmax, ixpos, iscaler;
  204. double    alat, alon;
  205.  
  206. int    lat, lon, alt;
  207. int    latnlong;
  208.  
  209. curshandle    watch_cursor;
  210.  
  211. rect        erect;
  212. rect        lat_data, lon_data, alt_data;
  213. rect        icon_rect;
  214.  
  215. handle        icon_handle;
  216.  
  217. controlhandle    alt_sb;
  218. controlhandle    lat_sb;
  219. controlhandle    lon_sb;
  220. controlhandle    north_check;
  221. controlhandle    south_check;
  222. controlhandle    east_check;
  223. controlhandle    west_check;
  224. controlhandle    mi_check;
  225. controlhandle    km_check;
  226.  
  227. extern unsigned char    getch();   /* get next data point from data segment */
  228.  
  229. windowptr    wind;
  230. int    storage[12000];
  231. int    draw;    /* != 0 if we want to draw the line.  ==0 if move to point */
  232. int    over;    /* != 0 when point is outside visible area */
  233. bitmap    saved_bitmap;
  234. char    controls[] = “Controls”;
  235. char    earthwin[] = “Earth”;
  236.  
  237. /*
  238.  *    beep - make a noise!
  239.  */
  240.  
  241. beep ()
  242. {
  243.     sysbeep (5); /* useful in debugging */
  244. }
  245.  
  246.  
  247.  
  248. leave()             /* Attached to the Quit menu */
  249. {
  250.     exit(0);
  251. }
  252.  
  253.  
  254.  
  255. nop() 
  256. {
  257. }
  258.  
  259.  
  260. xxx(xabs, yabs, zabs)    /* plot a line or move current position */
  261. long    xabs, yabs, zabs;
  262. {
  263.     int    x, y;
  264.     long    ifactor, ixtmp, ixrel, iyrel, izrel;
  265.  
  266.     /*
  267.      * draw line if we want to draw (as opposed to move)
  268.      * and the previous point was drawn too.
  269.      */
  270.     draw = draw && !over;
  271.  
  272.     ixtmp = ((xabs * icos2) + (yabs * isin2)) / fudge;
  273.     ixrel = ((ixtmp * icos1) + (zabs * isin1)) / fudge;
  274.  
  275.     over = (ixrel < ixmax);
  276.  
  277.     if (over) 
  278.         return;
  279.  
  280.     iyrel = ((yabs * icos2) - (xabs * isin2)) / fudge;
  281.     izrel = ((zabs * icos1) - (ixtmp * isin1)) / fudge;
  282.  
  283.     ifactor = ixpos * iscaler / (ixpos - ixrel);
  284.  
  285.  /* you’ll want this if the earth window size becomes variable
  286.   *    x = ((((iyrel * ifactor) / fudge) + fudge) * half_xsize) / fudge;
  287.   *    y = ((((-izrel * ifactor) / fudge) + fudge) * half_ysize) / fudge;
  288.   *
  289.   * another hack to get rid of two ldiv’s.
  290.   * approximation is close enough
  291.   */
  292.     x = ((((iyrel * ifactor) / fudge) + fudge) * 123) >> 13;
  293.     y = ((((-izrel * ifactor) / fudge) + fudge) * 123) >> 13;
  294.  
  295.     if (draw) 
  296.         lineto (x, y);
  297.     else 
  298.         moveto (x, y);
  299. }
  300.  
  301.  
  302.  
  303. /*
  304.  *    brag - put up our ABOUT BOX
  305.  */
  306.  
  307. brag ()
  308. {
  309.  
  310.     char    mess[255];        /* string to form a message */
  311.  
  312.     strcpy (mess, “\265EarthPlot -- Version 2.0 -- December 1985\r”);
  313.     strcat (mess, “Public domain program by Michael Peirce\r”);
  314.     strcat (mess, “Version 2 improvements by Marsh Gosnell”);
  315.     if (message (mess))
  316.         nop ();
  317. }
  318.  
  319.  
  320. sorry ()
  321. {
  322.  
  323.     char    mess[255];        /* string to form a message */
  324.  
  325.     strcpy (mess, “You’ll have to use shift-option-3.”);
  326.     if (message (mess))
  327.         nop ();
  328. }
  329.  
  330.  
  331. /*
  332.  *    eraseearth - erase earth window
  333.  */
  334. eraseearth ()
  335. {
  336.     withwindow(earthwin);
  337.     fillrect(&erect, qdvars.qdwhite);
  338.     frameoval(&erect);
  339. }
  340.  
  341.  
  342.  
  343. /*
  344.  *    drawearth - actually draw the picture
  345.  */
  346. drawearth ()
  347. {
  348.  
  349.     int    temp, i, j, first;
  350.     eventrecord theevent;
  351.     double    coslat, coslon, sinlon, x, y, z;
  352.     long    ix, iy, iz;
  353.  
  354.     setcursor(*watch_cursor);
  355.  
  356.     eraseearth();
  357.  
  358.     alatd = getctlvalue(lat_sb);
  359.     alond = getctlvalue(lon_sb);
  360.     height = getctlvalue(alt_sb) * (long)alt_scale;
  361.     if (getctlvalue(mi_check) == 0)
  362.         height = height * 1.61;
  363.  
  364.     alat = alatd * conv;
  365.     alon = alond * conv;
  366.  
  367.     cos1 = cos(alat);
  368.     cos2 = cos(alon);
  369.     sin1 = sin(alat);
  370.     sin2 = sin(alon);
  371.  
  372.     if (getctlvalue(south_check) == 1) 
  373.         sin1 = -sin1;
  374.     if (getctlvalue(west_check)  == 1) 
  375.         sin2 = -sin2;
  376.  
  377.     xpos = (height + diam) / diam;
  378.     xmax = 1.0 / xpos;
  379.     scaler = sqrt (1.0 - (xmax * xmax));
  380.  
  381.     icos1 = (long)(cos1 * fudge);
  382.     icos2 = (long)(cos2 * fudge);
  383.     isin1 = (long)(sin1 * fudge);
  384.     isin2 = (long)(sin2 * fudge);
  385.     ixmax = (long)(xmax * fudge);
  386.     ixpos = (long)(xpos * fudge);
  387.     iscaler = (long)(scaler * fudge);
  388.  
  389.     moveto((int)xsize, (int)half_ysize);
  390.  
  391.     if (latnlong) {
  392.         for (j = 1; j < 11; j++) {
  393.  
  394.             alat   = (double)((j - 6) * 15) * conv;
  395.             coslat = cos(alat) * fudge;
  396.             iz = (long)(sin(alat) * fudge);
  397.             draw = FALSE;
  398.             over = FALSE;
  399.             for (i = 0; i < 204; i += 2) {
  400.  
  401.                 alon = (double)(i) * pi100;
  402.                 ix = (long)(coslat * cos(alon));
  403.                 iy = (long)(coslat * sin(alon));
  404.  
  405.                 xxx(ix, iy, iz);
  406.  
  407.                 draw = TRUE;
  408.  
  409.             }
  410.             if (getnextevent(everyevent, &theevent) != 0)
  411.                 if (theevent.what == mousedown) 
  412.                     goto abort_drawing;
  413.         }
  414.  
  415.         for (j = 0; j < 24; j++) {
  416.  
  417.             alon   = (double)((j * 15)) * conv;
  418.             coslon = cos(alon) * fudge;
  419.             sinlon = sin(alon) * fudge;
  420.             draw = FALSE;
  421.             over = FALSE;
  422.             for (i = 0; i < 104; i += 2) {
  423.  
  424.                 alat = ((double)(i) / 100.0 - 0.5) * pi;
  425.                 coslat = cos(alat);
  426.                 ix = (long)(coslat * coslon);
  427.                 iy = (long)(coslat * sinlon);
  428.                 iz = (long)(sin(alat) * fudge);
  429.  
  430.                 xxx(ix, iy, iz);
  431.  
  432.                 draw = TRUE;
  433.  
  434.             }
  435.             if (getnextevent(everyevent, &theevent) != 0)
  436.                 if (theevent.what == mousedown) 
  437.                     goto abort_drawing;
  438.         }
  439.     }
  440.  
  441.     getch(1);    /* reset data pointer */
  442.     over = FALSE;
  443.     while ((ix = getch(0)) != 0xff) {
  444.         iy = getch(0);
  445.         iz = getch(0);
  446.         draw = ix || iy || iz;
  447.         if (!draw) {
  448.             ix = getch(0);
  449.             iy = getch(0);
  450.             iz = getch(0);
  451.         }
  452.         /* x>>8 == x/265 */
  453.         ix = ((ix * fudge2) >> 8) - fudge;
  454.         iy = ((iy * fudge2) >> 8) - fudge;
  455.         iz = ((iz * fudge2) >> 8) - fudge;
  456.  
  457.         xxx(ix, iy, iz);
  458.     }
  459.  
  460. abort_drawing:
  461.  
  462.     initcursor();
  463.  
  464.     wind = windowpoint(earthwin);
  465.     copybits(&(wind->portbits), &(saved_bitmap),
  466.         &erect, &erect, srccopy, NULL);
  467.  
  468. }
  469.  
  470.  
  471. /*
  472.  *    dolines - toggles lat & long lines
  473.  */
  474.  
  475. dolines()
  476. {
  477.     latnlong = !latnlong;
  478.  
  479.     if (latnlong)
  480.         menu(“\265Plot”, “Grid on/G”, itemcheck);
  481.     else
  482.         menu(“\265Plot”, “Grid on/G”, itemuncheck);
  483. }
  484.  
  485.  
  486. /*
  487.  *    restore_earth - keeps earth drawn
  488.  */
  489.  
  490. restore_earth()
  491. {
  492.     wind = windowpoint(earthwin);
  493.  
  494.     copybits(&(saved_bitmap), &(wind->portbits),
  495.         &erect, &erect, srccopy, NULL);
  496. }
  497.  
  498.  
  499. copy_earth()
  500. {
  501.     /*
  502. long        temp;
  503. pichandle    pic;
  504. restype        pict_res;
  505. rect        xrect;
  506.  
  507.     pic = openpicture(&erect);
  508.  
  509.     hlock(pic);
  510.     
  511.     restore_earth();
  512.  
  513.     closepicture();
  514.  
  515.     pict_res[0] = ‘P’;    pict_res[1] = ‘I’;
  516.     pict_res[2] = ‘C’;    pict_res[3] = ‘T’;
  517.  
  518.     zeroscrap();
  519.  
  520.     temp = gethandlesize(pic);
  521.     temp = putscrap(temp,&pict_res,*pic);
  522.     killpicture(pic);beep();
  523. */
  524. }
  525.  
  526.  
  527. TextUpdate()
  528. {
  529.     windowptr wind;
  530.  
  531.     wind = windowpoint(controls);
  532.     drawcontrols(wind);
  533.     textface(9);
  534.     moveto(60, 36);
  535.     textface(0);
  536.     printf(“\265EarthPlot V2\n”);
  537.     moveto(9, 92);
  538.     printf(“Latitude:\n”);
  539.     moveto(9, 172);
  540.     printf(“Longitude:\n”);
  541.     moveto(9, 252);
  542.     printf(“Altitude:\n”);
  543. }
  544.  
  545.  
  546. DataUpdate()
  547. {
  548.     windowptr wind;
  549.  
  550.     wind = windowpoint(controls);
  551.  
  552.     fillrect(&lat_data, white);
  553.     moveto(75, 92);
  554.     printf(“%d\241\n”, getctlvalue(lat_sb));
  555.     fillrect(&lon_data, white);
  556.     moveto(82, 172);
  557.     printf(“%d\241\n”, getctlvalue(lon_sb));
  558.     fillrect(&alt_data, white);
  559.     moveto(73, 252);
  560.     printf(“%ld\n”, getctlvalue(alt_sb) * (long)alt_scale);
  561. }
  562.  
  563.  
  564. doupdate()
  565. {
  566.     windowptr wind;
  567.  
  568.     wind = windowpoint(controls);
  569.  
  570.     ploticon(&icon_rect, icon_handle);
  571.     TextUpdate();
  572.     DataUpdate();
  573.     drawcontrols(wind);
  574.     moveto(0, 61);
  575.     lineto(175, 61);
  576.     moveto(0, 64);
  577.     lineto(175, 64);
  578. }
  579.  
  580.  
  581. pascal track(control, partcode)
  582. controlhandle    control;
  583. int    partcode;
  584. {
  585.     int    i, step;
  586.  
  587.     if (partcode == 0) 
  588.         return;
  589.  
  590.     switch (partcode) {
  591.     case inupbutton:
  592.         step = -1;
  593.         break;
  594.     case indownbutton:
  595.         step =  1;
  596.         break;
  597.     case inpageup:
  598.         step = -10;
  599.         break;
  600.     case inpagedown:
  601.         step =  10;
  602.         break;
  603.     default:
  604.         return;
  605.     }
  606.  
  607.     i = getctlvalue(control) + step;
  608.     if (*control == *lat_sb) {
  609.         if (i > 90) 
  610.             i = 90;
  611.         if (i <  0) 
  612.             i =  0;
  613.     }
  614.     if (*control == *lon_sb) {
  615.         if (i > 180) 
  616.             i = 180;
  617.         if (i <   0) 
  618.             i =   0;
  619.     }
  620.     if (*control == *alt_sb) {
  621.         if (i > 160) 
  622.             i = 1600;
  623.         if (i <    0) 
  624.             i =    0;
  625.     }
  626.     setctlvalue(control, i);
  627.     DataUpdate();
  628. }
  629.  
  630.  
  631. doincontent(x, y, thewindow, theevent)
  632. int    x, y;
  633. windowptr thewindow;
  634. eventrecord *theevent;
  635. {
  636.     controlhandle    thecontrol;
  637.     int    partcode;
  638.  
  639.     globaltolocal(&theevent->where);
  640.  
  641.     partcode = findcontrol(&theevent->where, thewindow, &thecontrol);
  642.  
  643.     if (partcode) {
  644.         switch (partcode) {
  645.         case incheckbox:
  646.             partcode = trackcontrol(thecontrol, &theevent->where, NULL);
  647.  
  648.             if (*thecontrol == *north_check) {
  649.                 setctlvalue(north_check, 1);
  650.                 setctlvalue(south_check, 0);
  651.             }
  652.             if (*thecontrol == *south_check) {
  653.                 setctlvalue(north_check, 0);
  654.                 setctlvalue(south_check, 1);
  655.             }
  656.             if (*thecontrol == *east_check) {
  657.                 setctlvalue(east_check, 1);
  658.                 setctlvalue(west_check, 0);
  659.             }
  660.             if (*thecontrol == *west_check) {
  661.                 setctlvalue(east_check, 0);
  662.                 setctlvalue(west_check, 1);
  663.             }
  664.             if (*thecontrol == *mi_check) {
  665.                 setctlvalue(mi_check, 1);
  666.                 setctlvalue(km_check, 0);
  667.             }
  668.             if (*thecontrol == *km_check) {
  669.                 setctlvalue(mi_check, 0);
  670.                 setctlvalue(km_check, 1);
  671.             }
  672.  
  673.             break;
  674.         case inupbutton:
  675.         case indownbutton:
  676.         case inpageup:
  677.         case inpagedown:
  678.             partcode = trackcontrol(thecontrol, &theevent->where, track);
  679.             break;
  680.         case inthumb:
  681.             partcode = trackcontrol(thecontrol, &theevent->where, NULL);
  682.             break;
  683.         }
  684.     }
  685.     DataUpdate();
  686. }
  687.  
  688.  
  689. /*
  690.  *    setup - do our initial housekeeping
  691.  */
  692.  
  693. setup ()
  694. {
  695.     int    temp, i;
  696.     rect    alt_rect, lat_rect, lon_rect, mi_rect, km_rect;
  697.     rect    north_rect, south_rect, east_rect, west_rect;
  698.  
  699.     watch_cursor = getcursor(watchcursor);
  700.     hlock(watch_cursor);
  701.  
  702.     latnlong = FALSE;
  703.  
  704.     setrect(&erect, -1, -1, (int)xsize + 1, (int)ysize + 1);
  705.  
  706.     menu(applestring, “About \265Plot”, brag);
  707.     menu(applestring, “About \265Plot”, itemenable);
  708.     menu(“Edit”, “Undo”, nop);
  709.     menu(“Edit”, “Undo”, itemdisable);
  710.     menu(“Edit”, “Cut/X”, sorry);
  711.     menu(“Edit”, “Cut/X”, itemenable);
  712.     menu(“Edit”, “Copy/C”, nop);
  713.     menu(“Edit”, “Copy/C”, itemdisable);
  714.     menu(“Edit”, “Paste/V”, nop);
  715.     menu(“Edit”, “Paste/V”, itemdisable);
  716.     menu(“Edit”, “Clear”, eraseearth);
  717.     menu(“File”, “Quit/Q”, leave);
  718.     menu(“File”, “Quit/Q”, itemenable);
  719.     menu(“\265Plot”, “Grid on/G”, dolines); 
  720.     menu(“\265Plot”, “Erase  Earth/B”, eraseearth);
  721.     menu(“\265Plot”, “Draw Earth/D”, drawearth);
  722.  
  723.     temp = wprocid;
  724.     wprocid = 3;
  725.     window (earthwin, earth_1, earth_2, earth_3, earth_4,
  726.         nop, nop, restore_earth, nop);
  727.     setorigin(-2, -2);
  728.     wprocid = temp;
  729.  
  730.     temp = wprocid;
  731.     wprocid = 3;
  732.     window (controls, info_1, info_2, info_3, info_4,
  733.         nop, nop, doupdate, doincontent);
  734.     wprocid = temp;
  735.  
  736.     wind = windowpoint(controls);
  737.  
  738.     saved_bitmap.baseaddr = (qdptr) & storage;
  739.     saved_bitmap.rowbytes = wind->portbits.rowbytes;
  740.     saved_bitmap.bounds   = wind->portbits.bounds;
  741.  
  742.     setrect(&lat_rect, lat_sb_1, lat_sb_2, lat_sb_3, lat_sb_4);
  743.     setrect(&lon_rect, lon_sb_1, lon_sb_2, lon_sb_3, lon_sb_4);
  744.     setrect(&alt_rect, alt_sb_1, alt_sb_2, alt_sb_3, alt_sb_4);
  745.  
  746.     setrect(&lat_data, 75, 72, 175, 92);
  747.     setrect(&lon_data, 82, 152, 175, 172);
  748.     setrect(&alt_data, 73, 232, 175, 252);
  749.  
  750.     setrect(&north_rect, north_1, north_2, north_3, north_4);
  751.     setrect(&south_rect, south_1, south_2, south_3, south_4);
  752.     setrect(&east_rect, east_1, east_2, east_3, east_4);
  753.     setrect(&west_rect, west_1, west_2, west_3, west_4);
  754.     setrect(&mi_rect, mi_1, mi_2, mi_3, mi_4);
  755.     setrect(&km_rect, km_1, km_2, km_3, km_4);
  756.  
  757.     setrect(&icon_rect, icon_1, icon_2, icon_3, icon_4);
  758.  
  759.     lat = 0;
  760.     lon = 0;
  761.     alt = 160; /* 160 * 1000 = 160,000 */
  762.  
  763.     lat_sb = newcontrol(wind, &lat_rect, “‘, TRUE, lat, 0, 90, 16, (long)0);
  764.     lon_sb = newcontrol(wind, &lon_rect, “‘, TRUE, lon, 0, 180, 16, (long)0);
  765.     alt_sb = newcontrol(wind, &alt_rect, “‘, TRUE, alt, 1, 160, 16, (long)0);
  766.  
  767.     north_check = newcontrol(wind, &north_rect, “North”, TRUE, 1, 0, 1, 2, (long)0);
  768.     south_check = newcontrol(wind, &south_rect, “South”, TRUE, 0, 0, 1, 2, (long)0);
  769.     east_check  = newcontrol(wind, &east_rect, “East”, TRUE, 1, 0, 1, 2, (long)0);
  770.     west_check  = newcontrol(wind, &west_rect, “West”, TRUE, 0, 0, 1, 2, (long)0);
  771.     mi_check    = newcontrol(wind, &mi_rect,   “Miles”, TRUE, 1, 0, 1, 2, (long)0);
  772.     km_check    = newcontrol(wind, &km_rect,   “Kilometers”, TRUE, 0, 0, 1, 2, (long)0);
  773.  
  774.     icon_handle = geticon(icon_id);
  775.  
  776.     textfont(0);
  777.     eraseearth();
  778.     wind = windowpoint(earthwin);
  779.     copybits(&(wind->portbits), &(saved_bitmap),
  780.         &erect, &erect, srccopy, NULL);
  781.     getch(1);    /* call here to get disk activity done up front */
  782. }
  783.  
  784. main ()
  785. {
  786.  
  787.     simpletools(“About \265Plot”);
  788.  
  789.     setup();
  790.  
  791.     for (; ; ) 
  792.         simpleevents ();
  793. }
  794.  
  795.  
  796.  
  797.